Workplace Effectiveness: Dealing with Change/Workplace Effectiveness: Dealing with Change.iso/pc/Tools.Dxr/Internal_442_paper toss code.ls

Text File | 1998-05-04 | 546 b | 34 lines

on goPaper
  go(label("paper"))
end

on exitPaper
  global checkMarks2
  if getaProp(checkMarks2, #paper) = 0 then
    setaProp(checkMarks2, #paper, 1)
  end if
end

on paperOne
  global gMasterData
  puppetTransition(5)
  goNarrator(gMasterData, "57")
  setUserArea(gMasterData, #paper)
end

on paperAgain
  go(label("paper") + 2)
end

on resetPaper
  set the text of member "paper negative" to EMPTY
  set the text of member "paper positive" to EMPTY
  paperAgain()
end

on throwTrash
  stopSound2()
  puppetSound("paper.aif")
  go("toss")
end